home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H107.ZIP / APR91.ZIP / TIP645.LSP < prev    next >
Text File  |  1991-04-11  |  268b  |  12 lines
  1. ;TIP645.LSP   Edit Text or Attributes  (c)1991, Steve Kloehr
  2.  
  3. (defun C:DD ()
  4.   (setvar "CMDECHO" 0)
  5.   (setq X (entget(car(setq E (entsel)))))
  6.   (setq S (cadr E))
  7.   (if (= (cdr (assoc 0 X)) "TEXT")
  8.     (command "DDEDIT" S "")
  9.     (command "DDATTE" S)
  10.   )
  11. )
  12.